home *** CD-ROM | disk | FTP | other *** search
/ Asia X / Asia X.iso / mac / Starter / 00001.ls next >
Encoding:
Text File  |  1995-08-23  |  342 b   |  10 lines
  1. on exitFrame
  2.   global slideSpeed, gSong
  3.   set gSong to 5
  4.   set slideSpeed to 2
  5.   set movies to list("Aikawa", "Aimai", "Aoki", "Asaka", "Asano", "Harada", "Koizumi", "Miura", "Mizuno", "Mizusawa", "Okazaki", "Saeki", "Shiina", "Shirai")
  6.   set num_movies to 14
  7.   set random_movie to getAt(movies, random(num_movies))
  8.   go(1, random_movie)
  9. end
  10.